CY=39
 500 :print ;NT=1;print "CY=39";CY=39
 510 :print ;list 1,13;gosub 550;list 100,14;gosub 550;list 285,8;gosub 550;list 349,9;gosub 550;list 425,7;print "clear ;run 
 540 goto 540
 550 print "CY=39";CY=39;return 
CY=39
   1 .<CRYPT-O-GRAMS>
   2 .ADAPTED FOR THE
   3 .BALLY ARCADE BY
   4 .KEN SPRINGSTEEN
   5 clear ;&(10)=180;M=rnd (2)
   9 BC=135;FC=40
  10 box 0,0,94,10,1;CY=0;CX=-42;print "<CRYPT-O-GRAMS>",
  15 for Q=1to 950;next Q
  45 NT=1
  60 clear ;Z=0;V=0;A=0;B=0;D=0;E=0;W=0
  75 CY=0;print " NUMBER OF LETTERS?        (INCLUDING SPACES)
  90 input " FROM 6 TO 20 LETTERS ONLY"K;clear ;CX=-60
  95 if (K<6)+(K>20)clear ;goto 75
CY=39
 100 CY=35;CX=-42;print "<CRYPT-O-GRAMS>";CX=-60
 105 CY=0;Z=Z+1;TV="-";if Z=Kgoto 135
 120 goto 105
 130 NT=3
 135 CY=0;CX=-60;for A=1to K;@(A)=KP;if &(23)=16MU="Q"
 140 TV=@(A);next A
 150 print ;print ;CX=-60
 155 NT=0;CY=-20;CX=-60;print 'PRESS "GO" TO SCRAMBLE';if &(23)#1goto 155
 157 CY=-20;CX=-60;print "                      "
 165 CY=0;NT=10;print "                       ";NT=1
 180 CX=-60
 200 if M=2gosub 375
 210 if M=1gosub 435
CY=39
 270 print ;print ; CX=-60; for B=K+1 to Kmul 2
 285 NT=5;A=B-K;@(B)=KP;if &(23)=16MU="Q"
 295 TV=@(B);if @(B)#@(A)goto 330
 300 if B=Kmul 2goto 345
 315 next B;goto 285
 330 NT=0;D=CX;E=CY;CY=18;CX=-15;print "WRONG!";NT=20;&(20)=100;MU="?";MU=";";for W=1to 700;next W
 331 CY=18;CX=-15;NT=0;&(20)=0;print "      ";CX=D-6;CY=E;print " ",
 332 CX=D-6;CY=E;V=V+1;NT=3;goto 285
 345 NT=2;CX=-60;CY=20;print "YOU GUESSED IT WITH";CX=-60;CY=11;print #0,V," EXTRA GUESSES!"
CY=39
 349 for A=256to 125step -2;&(16)=100;&(17)=A-2;&(18)=A+2;&(19)=250;&(22)=255;next A
 350 &(16)=0;&(17)=0;&(18)=0;&(19)=0;&(22)=0
 355 CY=-31;NT=5;&(10)=142;print "205060706050607000500050000";for W=1to 500;next W;NT=3
 365 run 
 375 for A=5to Kstep 5;TV=@(A);next A
 385 for A=2to Kstep 5;TV=@(A);next A
 395 for A=4to Kstep 5;TV=@(A);next A
 405 for A=3to Kstep 5;TV=@(A);next A
 415 for A=1to Kstep 5;TV=@(A);next A
CY=39
 425 return 
 435 for A=3to Kstep 5;TV=@(A);next A
 445 for A=4to Kstep 5;TV=@(A);next A
 455 for A=1to Kstep 5;TV=@(A);next A
 465 for A=5to Kstep 5;TV=@(A);next A
 475 for A=2to Kstep 5;TV=@(A);next A
 485 return 
clear ;run 